home *** CD-ROM | disk | FTP | other *** search
/ NeXT Education Software Sampler 1992 Fall / NeXT Education Software Sampler 1992 Fall.iso / Demos / DE_CraftManDemo / CraftMan_Demo_1.1 / CraftMan.app / PostScript / Demo / CraftMan.xcps < prev    next >
Encoding:
Text File  |  1992-05-08  |  505 b   |  29 lines
  1. %begin_cm_vars
  2. %cm_var the_little_name "Xanthus"
  3. %cm_var the_big_name "CraftMan"
  4. %end_cm_vars
  5.  
  6. userdict /the_little_name known not 
  7.     {/the_little_name (Xanthus) def} if
  8. userdict /the_big_name known not 
  9.     {/the_big_name (CraftMan) def} if
  10.  
  11. /gads {/Times-Roman findfont
  12. 14 scalefont
  13. setfont
  14. 500 -15 0 {0 exch moveto
  15. 0 1 30 {pop the_little_name show} for
  16. } for} def
  17.  
  18. /Times-Bold findfont
  19. 120 scalefont
  20. setfont
  21.  
  22. 1 0.8 scale
  23. 25 rotate
  24. 10 -190 translate
  25. newpath
  26. 0 170 moveto
  27. the_big_name true
  28. charpath clip
  29. gads